Changeset 14118 for NEMO/trunk/src/OCE
- Timestamp:
- 2020-12-07T11:31:48+01:00 (4 years ago)
- Location:
- NEMO/trunk/src/OCE
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/DYN/dynhpg.F90
r14064 r14118 756 756 ! 4. a) Upper half of top-most grid box, compute and store 757 757 !------------------------------------------------------------- 758 ! *** AY note: ssh(ji,jj,Kmm) + gde3w(ji,jj,1) = e3w(ji,jj,1 )758 ! *** AY note: ssh(ji,jj,Kmm) + gde3w(ji,jj,1) = e3w(ji,jj,1,Kmm) 759 759 DO_2D( 0, 1, 0, 1) 760 760 z_rho_k(ji,jj,1) = grav * ( ssh(ji,jj,Kmm) + gde3w(ji,jj,1) ) & -
NEMO/trunk/src/OCE/ICB/icbutl.F90
r14030 r14118 57 57 PUBLIC icb_utl_heat ! routine called in icbdia module 58 58 59 !! * Substitutions 60 # include "domzgr_substitute.h90" 59 61 !!---------------------------------------------------------------------- 60 62 !! NEMO/OCE 4.0 , NEMO Consortium (2018) … … 127 129 CALL lbc_lnk_icb( 'icbutl', ztmp, 'V', -1._wp, 1, 1 ) 128 130 voce_e(:,:,jk) = ztmp(:,:) 131 ! 132 e3t_e(1:jpi,1:jpj,jk) = e3t(:,:,jk,Kmm) 129 133 END DO 130 toce_e(1:jpi,1:jpj,1:jpk) = ts(:,:,:,1,Kmm) 131 e3t_e (1:jpi,1:jpj,1:jpk) = e3t(:,:,:,Kmm) 134 toce_e(1:jpi,1:jpj,:) = ts(:,:,:,1,Kmm) 132 135 END IF 133 136 ! -
NEMO/trunk/src/OCE/nemogcm.F90
r14086 r14118 57 57 USE diacfl ! CFL diagnostics (dia_cfl_init routine) 58 58 USE diamlr ! IOM context management for multiple-linear-regression analysis 59 #if defined key_qco60 USE stepMLF ! NEMO time-stepping (stp_MLF routine)61 #else62 USE step ! NEMO time-stepping (stp routine)63 #endif64 59 USE isfstp ! ice shelf (isf_stp_init routine) 65 60 USE icbini ! handle bergs, initialisation -
NEMO/trunk/src/OCE/stpmlf.F90
r14053 r14118 367 367 IF( kstp == nitend .OR. indic < 0 ) THEN 368 368 CALL iom_context_finalize( cxios_context ) ! needed for XIOS+AGRIF 369 IF( lrxios ) CALL iom_context_finalize( crxios_context )370 369 IF( ln_crs ) CALL iom_context_finalize( trim(cxios_context)//"_crs" ) ! 371 370 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.