- Timestamp:
- 2020-06-25T10:02:26+02:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/DIA/diaar5.F90
r12911 r13156 132 132 ztsn(:,:,:,jp_tem) = ts(:,:,:,jp_tem,Kmm) ! thermosteric ssh 133 133 ztsn(:,:,:,jp_sal) = sn0(:,:,:) 134 ALLOCATE( zgdept(jpi,jpj,jpk) ) 134 135 DO jk = 1, jpk 135 136 zgdept(:,:,jk) = gdept(:,:,jk,Kmm) … … 190 191 zbotpres(:,:) = zztmp * ( zbotpres(:,:) + ssh(:,:,Kmm) + thick0(:,:) ) 191 192 CALL iom_put( 'botpres', zbotpres ) 193 ! 194 DEALLOCATE( zgdept ) 192 195 ! 193 196 ENDIF -
NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/stpMLF.F90
r12779 r13156 48 48 IMPLICIT NONE 49 49 PRIVATE 50 50 51 #if ! defined key_qco 52 !!---------------------------------------------------------------------- 53 !! 'key_qco' EMPTY MODULE Quasi-Eulerian vertical coordonate 54 !!---------------------------------------------------------------------- 55 #else 51 56 PUBLIC stp_MLF ! called by nemogcm.F90 52 57 … … 463 468 ! 464 469 END SUBROUTINE finalize_sbc 465 470 #endif 466 471 ! 467 472 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.