Changeset 11822 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD
- Timestamp:
- 2019-10-29T11:41:36+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD/trdini.F90
r10946 r11822 49 49 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : trends diagnostic 50 50 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901 ) 51 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist' , lwp)51 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist' ) 52 52 ! 53 53 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : trends diagnostic 54 54 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 55 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist' , lwp)55 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist' ) 56 56 IF(lwm) WRITE( numond, namtrd ) 57 57 ! -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD/trdmxl.F90
r10946 r11822 735 735 REWIND( numnam_ref ) ! Namelist namtrd_mxl in reference namelist : mixed layer trends diagnostic 736 736 READ ( numnam_ref, namtrd_mxl, IOSTAT = ios, ERR = 901 ) 737 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in reference namelist' , lwp)737 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in reference namelist' ) 738 738 739 739 REWIND( numnam_cfg ) ! Namelist namtrd_mxl in configuration namelist : mixed layer trends diagnostic 740 740 READ ( numnam_cfg, namtrd_mxl, IOSTAT = ios, ERR = 902 ) 741 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist' , lwp)741 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namtrd_mxl in configuration namelist' ) 742 742 IF(lwm) WRITE( numond, namtrd_mxl ) 743 743 ! … … 765 765 766 766 IF( MOD( nitend, nn_trd ) /= 0 ) THEN 767 WRITE(numout,cform_err) 768 WRITE(numout,*) ' Your nitend parameter, nitend = ', nitend 769 WRITE(numout,*) ' is no multiple of the trends diagnostics frequency ' 770 WRITE(numout,*) ' you defined, nn_trd = ', nn_trd 771 WRITE(numout,*) ' This will not allow you to restart from this simulation. ' 772 WRITE(numout,*) ' You should reconsider this choice. ' 773 WRITE(numout,*) 774 WRITE(numout,*) ' N.B. the nitend parameter is also constrained to be a ' 775 WRITE(numout,*) ' multiple of the nn_fsbc parameter ' 776 CALL ctl_stop( 'trd_mxl_init: see comment just above' ) 767 WRITE(ctmp1,*) ' Your nitend parameter, nitend = ', nitend 768 WRITE(ctmp2,*) ' is no multiple of the trends diagnostics frequency ' 769 WRITE(ctmp3,*) ' you defined, nn_trd = ', nn_trd 770 WRITE(ctmp4,*) ' This will not allow you to restart from this simulation. ' 771 WRITE(ctmp5,*) ' You should reconsider this choice. ' 772 WRITE(ctmp6,*) 773 WRITE(ctmp7,*) ' N.B. the nitend parameter is also constrained to be a ' 774 WRITE(ctmp8,*) ' multiple of the nn_fsbc parameter ' 775 CALL ctl_stop( ctmp1, ctmp2, ctmp3, ctmp4, ctmp5, ctmp6, ctmp7, ctmp8 ) 777 776 END IF 778 777 -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD/trdmxl_rst.F90
r10425 r11822 47 47 !!-------------------------------------------------------------------------------- 48 48 49 IF( .NOT. ln_rst_list .AND. nn_stock == -1 ) RETURN ! we will never do any restart 50 49 51 ! to get better performances with NetCDF format: 50 52 ! we open and define the ocean restart_mxl file one time step before writing the data (-> at nitrst - 1) 51 53 ! except if we write ocean restart_mxl files every time step or if an ocean restart_mxl file was writen at nitend - 1 52 IF( kt == nitrst - 1 .OR. n stock == 1 .OR. ( kt == nitend .AND. MOD( nitend - 1, nstock ) == 0 ) ) THEN54 IF( kt == nitrst - 1 .OR. nn_stock == 1 .OR. ( kt == nitend .AND. MOD( nitend - 1, nn_stock ) == 0 ) ) THEN 53 55 ! beware of the format used to write kt (default is i8.8, that should be large enough...) 54 56 IF( nitrst > 999999999 ) THEN ; WRITE(clkt, * ) nitrst -
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/OCE/TRD/trdvor.F90
r11480 r11822 46 46 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: vor_avr ! average 47 47 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: vor_avrb ! before vorticity (kt-1) 48 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: vor_avrbb ! vorticity at begining of the n write-1 timestep averaging period48 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: vor_avrbb ! vorticity at begining of the nn_write-1 timestep averaging period 49 49 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: vor_avrbn ! after vorticity at time step after the 50 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: rotot ! begining of the N WRITE-1 timesteps50 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: rotot ! begining of the NN_WRITE-1 timesteps 51 51 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: vor_avrtot ! 52 52 REAL(wp), SAVE, ALLOCATABLE, DIMENSION(:,:) :: vor_avrres ! … … 130 130 !! from ocean surface down to control surface (NetCDF output) 131 131 !! 132 !! ** Method/usage : integration done over n write-1 time steps132 !! ** Method/usage : integration done over nn_write-1 time steps 133 133 !! 134 134 !! ** Action : trends : … … 144 144 !! vortrd (,,10) = forcing term 145 145 !! vortrd (,,11) = bottom friction term 146 !! rotot(,) : total cumulative trends over n write-1 time steps146 !! rotot(,) : total cumulative trends over nn_write-1 time steps 147 147 !! vor_avrtot(,) : first membre of vrticity equation 148 148 !! vor_avrres(,) : residual = dh/dt entrainment … … 216 216 !! from ocean surface down to control surface (NetCDF output) 217 217 !! 218 !! ** Method/usage : integration done over n write-1 time steps218 !! ** Method/usage : integration done over nn_write-1 time steps 219 219 !! 220 220 !! ** Action : trends : … … 230 230 !! vortrd (,,10) = forcing term 231 231 !! vortrd (,,11) = bottom friction term 232 !! rotot(,) : total cumulative trends over n write-1 time steps232 !! rotot(,) : total cumulative trends over nn_write-1 time steps 233 233 !! vor_avrtot(,) : first membre of vrticity equation 234 234 !! vor_avrres(,) : residual = dh/dt entrainment … … 364 364 ENDIF 365 365 366 ! II.2 cumulated trends over analysis period (kt=2 to n write)366 ! II.2 cumulated trends over analysis period (kt=2 to nn_write) 367 367 ! ---------------------- 368 ! trends cumulated over n write-2 time steps368 ! trends cumulated over nn_write-2 time steps 369 369 370 370 IF( kt >= nit000+2 ) THEN … … 380 380 ! III. Output in netCDF + residual computation 381 381 ! ============================================= 382 382 383 383 ! define time axis 384 384 it = kt … … 508 508 ENDIF 509 509 #if defined key_diainstant 510 zsto = n write*rdt510 zsto = nn_write*rdt 511 511 clop = "inst("//TRIM(clop)//")" 512 512 #else
Note: See TracChangeset
for help on using the changeset viewer.