Changeset 13286 for NEMO/trunk/src/OCE/DIA
- Timestamp:
- 2020-07-09T17:48:29+02:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 2 2 ^/utils/build/makenemo@HEAD makenemo 3 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools /@HEADtools4 ^/utils/tools@HEAD tools 5 5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM … … 8 8 9 9 # SETTE 10 ^/utils/CI/ sette@12931sette10 ^/utils/CI/r12931_sette_ticket2366@HEAD sette
-
- Property svn:externals
-
NEMO/trunk/src/OCE/DIA/diaar5.F90
r13237 r13286 396 396 ALLOCATE( zsaldta(jpi,jpj,jpk,jpts) ) 397 397 CALL iom_open ( 'sali_ref_clim_monthly', inum ) 398 CALL iom_get ( inum, jpdom_ data, 'vosaline' , zsaldta(:,:,:,1), 1 )399 CALL iom_get ( inum, jpdom_ data, 'vosaline' , zsaldta(:,:,:,2), 12 )398 CALL iom_get ( inum, jpdom_global, 'vosaline' , zsaldta(:,:,:,1), 1 ) 399 CALL iom_get ( inum, jpdom_global, 'vosaline' , zsaldta(:,:,:,2), 12 ) 400 400 CALL iom_close( inum ) 401 401 -
NEMO/trunk/src/OCE/DIA/diadct.F90
r13237 r13286 412 412 ijloc=ijglo-njmpp+1 ! " 413 413 414 !verify if the point is on the local domain:(1, nlei)*(1,nlej)415 IF( iiloc >= 1 .AND. iiloc <= nlei.AND. &416 ijloc >= 1 .AND. ijloc <= nlej)THEN414 !verify if the point is on the local domain:(1,Nie0)*(1,Nje0) 415 IF( iiloc >= 1 .AND. iiloc <= Nie0 .AND. & 416 ijloc >= 1 .AND. ijloc <= Nje0 )THEN 417 417 iptloc = iptloc + 1 ! count local points 418 418 secs(jsec)%listPoint(iptloc) = POINT_SECTION(mi0(iiglo),mj0(ijglo)) ! store local coordinates … … 519 519 520 520 !which coordinate shall we verify ? 521 IF ( cdind=='I' )THEN ; itest= nlei; iind=1522 ELSE IF ( cdind=='J' )THEN ; itest= nlej; iind=2521 IF ( cdind=='I' )THEN ; itest=Nie0 ; iind=1 522 ELSE IF ( cdind=='J' )THEN ; itest=Nje0 ; iind=2 523 523 ELSE ; CALL ctl_stop("removepoints :Wrong value for cdind") 524 524 ENDIF -
NEMO/trunk/src/OCE/DIA/diahsb.F90
r13237 r13286 274 274 CALL iom_get( numror, 'frc_wn_s', frc_wn_s, ldxios = lrxios ) 275 275 ENDIF 276 CALL iom_get( numror, jpdom_auto glo, 'surf_ini' , surf_ini , ldxios = lrxios ) ! ice sheet coupling277 CALL iom_get( numror, jpdom_auto glo, 'ssh_ini' , ssh_ini , ldxios = lrxios )278 CALL iom_get( numror, jpdom_auto glo, 'e3t_ini' , e3t_ini , ldxios = lrxios )279 CALL iom_get( numror, jpdom_auto glo, 'tmask_ini' , tmask_ini , ldxios = lrxios )280 CALL iom_get( numror, jpdom_auto glo, 'hc_loc_ini', hc_loc_ini, ldxios = lrxios )281 CALL iom_get( numror, jpdom_auto glo, 'sc_loc_ini', sc_loc_ini, ldxios = lrxios )276 CALL iom_get( numror, jpdom_auto, 'surf_ini' , surf_ini , ldxios = lrxios ) ! ice sheet coupling 277 CALL iom_get( numror, jpdom_auto, 'ssh_ini' , ssh_ini , ldxios = lrxios ) 278 CALL iom_get( numror, jpdom_auto, 'e3t_ini' , e3t_ini , ldxios = lrxios ) 279 CALL iom_get( numror, jpdom_auto, 'tmask_ini' , tmask_ini , ldxios = lrxios ) 280 CALL iom_get( numror, jpdom_auto, 'hc_loc_ini', hc_loc_ini, ldxios = lrxios ) 281 CALL iom_get( numror, jpdom_auto, 'sc_loc_ini', sc_loc_ini, ldxios = lrxios ) 282 282 IF( ln_linssh ) THEN 283 CALL iom_get( numror, jpdom_auto glo, 'ssh_hc_loc_ini', ssh_hc_loc_ini, ldxios = lrxios )284 CALL iom_get( numror, jpdom_auto glo, 'ssh_sc_loc_ini', ssh_sc_loc_ini, ldxios = lrxios )283 CALL iom_get( numror, jpdom_auto, 'ssh_hc_loc_ini', ssh_hc_loc_ini, ldxios = lrxios ) 284 CALL iom_get( numror, jpdom_auto, 'ssh_sc_loc_ini', ssh_sc_loc_ini, ldxios = lrxios ) 285 285 ENDIF 286 286 ELSE -
NEMO/trunk/src/OCE/DIA/diaptr.F90
r13237 r13286 355 355 btmsk(:,:,1) = tmask_i(:,:) 356 356 CALL iom_open( 'subbasins', inum, ldstop = .FALSE. ) 357 CALL iom_get( inum, jpdom_ data, 'atlmsk', btmsk(:,:,2) ) ! Atlantic basin358 CALL iom_get( inum, jpdom_ data, 'pacmsk', btmsk(:,:,3) ) ! Pacific basin359 CALL iom_get( inum, jpdom_ data, 'indmsk', btmsk(:,:,4) ) ! Indian basin357 CALL iom_get( inum, jpdom_global, 'atlmsk', btmsk(:,:,2) ) ! Atlantic basin 358 CALL iom_get( inum, jpdom_global, 'pacmsk', btmsk(:,:,3) ) ! Pacific basin 359 CALL iom_get( inum, jpdom_global, 'indmsk', btmsk(:,:,4) ) ! Indian basin 360 360 CALL iom_close( inum ) 361 361 btmsk(:,:,5) = MAX ( btmsk(:,:,3), btmsk(:,:,4) ) ! Indo-Pacific basin -
NEMO/trunk/src/OCE/DIA/diawri.F90
r13237 r13286 471 471 472 472 ! Define indices of the horizontal output zoom and vertical limit storage 473 iimi = 1 ; iima = jpi474 ijmi = 1 ; ijma = jpj473 iimi = Nis0 ; iima = Nie0 474 ijmi = Njs0 ; ijma = Nje0 475 475 ipk = jpk 476 476 IF(ln_abl) ipka = jpkam1
Note: See TracChangeset
for help on using the changeset viewer.