SUBROUTINE INIT | SUBROUTINE INITS !> SUBROUTINE INIT | !> SUBROUTINE INITS !> SUBPROGRAM: INIT - INITIALIZE VARIABLE FOR MODEL RUN | !> SUBPROGRAM: INITS - INITIALIZE VARIABLE FOR MODEL RUN !> < !>----------------------------------------------------------- | !------------------------------------------------------------ > USE EXCHM > USE SLOPES > USE UPDT > USE UPDATE_FLDS > INCLUDE "EXCHM.h" > INTEGER(KIND=I4KIND) > & NSSTREC , CALC_SST , NREC_SST_UP > #ifdef DP_REAL > #endif > write(9000+N,*)MINVAL(TEMP1) > write(9000+N,*)MAXVAL(TEMP1) > close(9000+N) > ! ! < 75 FORMAT(14(F4.1,1X)) | ! > 75 FORMAT(14(F6.1,1X)) > ! IF (MYPE == 0) THEN | WRITE(0,*)' NTSTM=',NTSTM,' TSPH=',TSPH,' DT=',DT < END IF < ! < !---------------------------------------- | !----------------------------------------- !---------------------------------------- | !----------------------------------------- !------------------------------------------------------------ | !------------------------------------ ! IF NOT RUNNING THE MODEL, PRINT DATE OF INITIAL CONDITIONS | ! SST and VGREEN !------------------------------------------------------------ | !------------------------------------ > CALC_SST= 86400 / DT > IF (MYPE == 0) THEN > WRITE(LIST,*)' NTSTM=',NTSTM,' TSPH=',TSPH,' DT=',DT > WRITE(LIST,*)'LSST=',LSST > WRITE(LIST,*)'LSSTMNTHLY=',LSSTMNTHLY > END IF > IF (LSST) THEN > IF (LSSTMNTHLY) THEN > NSSTREC=500 > CALL FLDS_UPDATE_DRIVER('READ','SST',NSST_UP=NSSTR > CALL FLDS_UPDATE_DRIVER('UPDATE','SSTM2D') > ELSE > NSSTREC=TEND/24+1 > CALL FLDS_UPDATE_DRIVER('READ','SST',NSST_UP=NSSTR > CALL FLDS_UPDATE_DRIVER('UPDATE','SST',CALC_SST,RE > ENDIF > ELSE > NSSTREC=1 > CALL FLDS_UPDATE_DRIVER('READ','SST',NSST_UP=NSSTREC) > CALL FLDS_UPDATE_DRIVER('UPDATE','SST',CALC_SST,RECSS > ENDIF > ! > CALL FLDS_UPDATE_DRIVER('READ','VGREEN') > !------------------------------------------------------------ > ! IF NOT RUNNING THE MODEL, PRINT DATE OF INITIAL CONDITIONS > ! OTHERWISE, CONTINUE. > !------------------------------------------------------------ > ! > ! > #ifdef DP_REAL > ! > #else > ! > #endif > ! | ! > ! !------------------------------------------------------------ | !------------------------------------------------------------ !------------------------------------------------------------ | !------------------------------------------------------------ !------------------------------------------------------------ | !------------------------------------------------------------ ! AT THIS POINT, WE MUST CALCULATE THE INITIAL POTENTIAL TEMP | ! AT THIS POINT, WE MUST CALCULATE THE INITIAL POTENTIAL TEMP ! SUBGROUND. < !------------------------------------------------------------ | !------------------------------------------------------------ | ! !-------------------------------------------------------- | !------------------------------------------------------------ !------------------------------------------------------------ | ! INITIALIZE TURBULENT KINETIC ENERGY (TKE) TO A SMALL VALUE ! INITIALIZE TURBULENT KINETIC ENERGY (TKE) TO A SMALL VALUE | ! SET TKE TO ZERO IN THE THE LOWEST MODEL LAYER. IN THE LOWE ! IN THE THE LOWEST MODEL LAYER. | !------------------------------------------------------------ ! IN THE LOWEST TWO ATMOSPHERIC ETA LAYERS SET TKE TO A SMALL < !------------------------------------------------------------ < ! IF THIS IS NOT A NESTED RUN, INITIALIZE TKE < ! < ! IF (.NOT.NEST) THEN < ! DO L=1,LM < ! DO J=JS_LOC_TABLE(MYPE),JE_LOC_TABLE(MYPE) < ! DO I=IS_LOC_TABLE(MYPE),IE_LOC_TABLE(MYPE) < ! Q2(I,J,L)=AMAX1(Q2(I,J,L)*HBM2(I,J),EPSQ2) < ! END DO < ! END DO < ! END DO < ! END IF < ! < > ! > ! > ! > ! > ! > ! > ! > ! !------------------------------------------------- | !------------------------------------------------ !------------------------------------------------- | !------------------------------------------------ !------------------------------------------------------------ | !------------------------------------------------------------ ! FLAG FOR INITIALIZING ARRAYS, LOOKUP TABLES AND CONSTANTS U | ! FLAG FOR INITIALIZING ARRAYS, LOOKUP TABLES, AND CONSTANTS !------------------------------------------------------------ | !------------------------------------------------------------ > ! > ! ! < !------------------------------------------------------------ | !------------------------------------------------------------ ! THE ARRAY 'LVL' WILL COORDINATE VERTICAL LOCATIONS BETWEEN | ! THE ARRAY 'LVL' WILL COORDINATE VERTICAL LOCATIONS BETWEEN ! FUNDAMENTAL MODEL ARRAYS. < !------------------------------------------------------------ | !------------------------------------------------------------ PSUM = PSUM + DETA(L) * PDIF | PSUM = PSUM + DETA(K) * PDIF ! | > ! > ! CALL O3CLIM | CALL O3CLIM(MYPE) > ! ! < > ! > END DO > !------------------------------------ > ! SLOPE DIRECTION IDENTIFICATION LOOP > !------------------------------------ > CALL EXCH(ISLD, 1, 5, 5) > CALL EXCH(LMV , 1, 5, 5) > ! > DO K=1,LM > DO J=JDIM1,JDIM2 > DO I=IDIM1,IDIM2 > VTMS(I,J,K) = 0 > END DO > END DO > END DO > ! > DO J=JDIM1,JDIM2 > DO I=IDIM1,IDIM2 > IF (ISLD(I,J) > 0) THEN > VTMS(I,J,LMV(I,J)+1) = 1 > END IF > END DO END SUBROUTINE INIT | END SUBROUTINE INITS ! < ! < ! < BLOCK DATA CLOUD < !------------------------------------------------------------ < USE PARMETA < USE RD1TIM < ! < END BLOCK DATA CLOUD <