- Timestamp:
- 2020-10-22T20:49:56+02:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Property svn:externals
-
old new 1 ^/utils/build/arch@HEAD arch 2 ^/utils/build/makenemo@HEAD makenemo 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 ^/vendors/FCM@HEAD ext/FCM 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 1 ^/utils/build/arch@12130 arch 2 ^/utils/build/makenemo@12191 makenemo 3 ^/utils/build/mk@11662 mk 4 ^/utils/tools_r4.0-HEAD@12672 tools 5 ^/vendors/AGRIF/dev@10586 ext/AGRIF 6 ^/vendors/FCM@10134 ext/FCM 7 ^/vendors/IOIPSL@9655 ext/IOIPSL 8 9 # SETTE mapping (inactive) 10 #^/utils/CI/sette@12135 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/OCE/DIA/diawri.F90
r11536 r13662 46 46 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 47 47 USE in_out_manager ! I/O manager 48 USE diatmb ! Top,middle,bottom output49 48 USE dia25h ! 25h Mean output 50 49 USE iom ! … … 169 168 ENDIF 170 169 170 CALL iom_put( "rhop", rhop(:,:,:) ) ! 3D potential density (sigma0) 171 171 172 IF ( iom_use("taubot") ) THEN ! bottom stress 172 173 zztmp = rau0 * 0.25 … … 391 392 CALL iom_put( "bn2", rn2 ) ! Brunt-Vaisala buoyancy frequency (N^2) 392 393 ! 393 394 IF (ln_diatmb) CALL dia_tmb ! tmb values395 394 396 395 IF (ln_dia25h) CALL dia_25h( kt ) ! 25h averaging … … 409 408 INTEGER, DIMENSION(2) :: ierr 410 409 !!---------------------------------------------------------------------- 411 ierr = 0 412 ALLOCATE( ndex_hT(jpi*jpj) , ndex_T(jpi*jpj*jpk) , & 413 & ndex_hU(jpi*jpj) , ndex_U(jpi*jpj*jpk) , & 414 & ndex_hV(jpi*jpj) , ndex_V(jpi*jpj*jpk) , STAT=ierr(1) ) 410 IF( nn_write == -1 ) THEN 411 dia_wri_alloc = 0 412 ELSE 413 ierr = 0 414 ALLOCATE( ndex_hT(jpi*jpj) , ndex_T(jpi*jpj*jpk) , & 415 & ndex_hU(jpi*jpj) , ndex_U(jpi*jpj*jpk) , & 416 & ndex_hV(jpi*jpj) , ndex_V(jpi*jpj*jpk) , STAT=ierr(1) ) 415 417 ! 416 dia_wri_alloc = MAXVAL(ierr) 417 CALL mpp_sum( 'diawri', dia_wri_alloc ) 418 dia_wri_alloc = MAXVAL(ierr) 419 CALL mpp_sum( 'diawri', dia_wri_alloc ) 420 ! 421 ENDIF 418 422 ! 419 423 END FUNCTION dia_wri_alloc
Note: See TracChangeset
for help on using the changeset viewer.