Changeset 392 for trunk/NEMO/OPA_SRC/DOM
- Timestamp:
- 2006-03-10T11:55:45+01:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DOM
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DOM/dom_oce.F90
r389 r392 197 197 ! ! parameterize exchanges through straits 198 198 199 #if defined key_ AGRIF199 #if defined key_agrif 200 200 !!---------------------------------------------------------------------- 201 201 !! agrif sponge layer -
trunk/NEMO/OPA_SRC/DOM/domain.F90
r389 r392 264 264 ENDIF 265 265 266 #if defined key_ AGRIF266 #if defined key_agrif 267 267 if ( Agrif_Root() ) then 268 268 #endif … … 278 278 IF(lwp) WRITE(numout,*) ' The IOIPSL calendar is "360d", i.e. 360 days in a year' 279 279 END SELECT 280 #if defined key_ AGRIF280 #if defined key_agrif 281 281 endif 282 282 #endif -
trunk/NEMO/OPA_SRC/DOM/domhgr.F90
r389 r392 236 236 gphi0 = - ppe2_m * 1.e-3 237 237 238 #if defined key_ AGRIF&& defined key_eel_r6238 #if defined key_agrif && defined key_eel_r6 239 239 IF (.Not.Agrif_Root()) THEN 240 240 glam0 = Agrif_Parent(glam0) + (Agrif_ix())*Agrif_Parent(ppe1_m) * 1.e-3 … … 434 434 zphi0 = ppgphi0 - FLOAT( jpjglo/2) * ppe2_m / ( ra * rad ) ! latitude of the first row F-points 435 435 436 #if defined key_ AGRIF&& defined key_eel_r6436 #if defined key_agrif && defined key_eel_r6 437 437 IF (.Not.Agrif_Root()) THEN 438 438 zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad) … … 513 513 !!---------------------------------------------------------------------- 514 514 clname = 'coordinates' 515 #if defined key_ AGRIF515 #if defined key_agrif 516 516 if ( .NOT. Agrif_Root() ) then 517 517 clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) -
trunk/NEMO/OPA_SRC/DOM/domwri.F90
r389 r392 104 104 clnam4 = 'mesh_zgr' ! filename (vertical mesh informations) 105 105 106 #if defined key_ AGRIF106 #if defined key_agrif 107 107 if ( .NOT. Agrif_Root() ) then 108 108 clnam0 = TRIM(Agrif_CFixed())//'_'//TRIM(clnam0) -
trunk/NEMO/OPA_SRC/DOM/domzgr.F90
r389 r392 391 391 392 392 clname = 'bathy_level.nc' ! Level bathymetry 393 #if defined key_ AGRIF393 #if defined key_agrif 394 394 if ( .NOT. Agrif_Root() ) then 395 395 clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname) … … 420 420 421 421 clname = 'bathy_meter.nc' ! meter bathymetry 422 #if defined key_ AGRIF422 #if defined key_agrif 423 423 if ( .NOT. Agrif_Root() ) then 424 424 clname = TRIM(Agrif_CFixed())//'_'//TRIM(clname)
Note: See TracChangeset
for help on using the changeset viewer.