Changeset 3049 for branches/2011/dev_MERCATOR_2011_MERGE/NEMOGCM/NEMO
- Timestamp:
- 2011-11-07T14:22:59+01:00 (13 years ago)
- Location:
- branches/2011/dev_MERCATOR_2011_MERGE/NEMOGCM/NEMO
- Files:
-
- 5 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_MERCATOR_2011_MERGE/NEMOGCM/NEMO/NST_SRC/agrif_opa_update.F90
r2715 r3049 9 9 USE in_out_manager ! I/O manager 10 10 USE lib_mpp 11 11 USE traswp 12 12 13 IMPLICIT NONE 13 14 PRIVATE … … 56 57 57 58 Agrif_UseSpecialValueInUpdate = .FALSE. 59 60 CALL Agrif_ChildGrid_To_ParentGrid() 61 CALL tra_swap 62 CALL Agrif_ParentGrid_To_ChildGrid() 58 63 59 64 IF( wrk_not_released(3, 1) ) THEN -
branches/2011/dev_MERCATOR_2011_MERGE/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r2715 r3049 105 105 !! logical units 106 106 !!---------------------------------------------------------------------- 107 INTEGER :: numstp = -1 !: logical unit for time step 108 INTEGER :: numout = 6 !: logical unit for output print 109 INTEGER :: numnam = -1 !: logical unit for namelist 110 INTEGER :: numnam_ice = -1 !: logical unit for ice namelist 111 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 112 INTEGER :: numsol = -1 !: logical unit for solver statistics 107 INTEGER :: numstp = -1 !: logical unit for time step 108 INTEGER :: numout = 6 !: logical unit for output print 109 INTEGER :: numnam = -1 !: logical unit for namelist 110 INTEGER :: numnam_ice = -1 !: logical unit for ice namelist 111 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 112 INTEGER :: numsol = -1 !: logical unit for solver statistics 113 INTEGER :: numdct_in = -1 !: logical unit for transports computing 114 INTEGER :: numdct_vol = -1 !: logical unit for voulume transports output 115 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 116 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 113 117 114 118 !!---------------------------------------------------------------------- -
branches/2011/dev_MERCATOR_2011_MERGE/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r2715 r3049 57 57 USE sshwzv ! vertical velocity used in asm 58 58 USE diaptr ! poleward transports (dia_ptr_init routine) 59 USE diadct ! sections transports (dia_dct_init routine) 59 60 USE diaobs ! Observation diagnostics (dia_obs_init routine) 60 61 USE step ! NEMO time-stepping (stp routine) … … 345 346 IF( lk_diaar5 ) CALL dia_ar5_init ! ar5 diag 346 347 CALL dia_ptr_init ! Poleward TRansports initialization 348 IF( lk_diadct ) CALL dia_dct_init ! Sections tranports 347 349 CALL dia_hsb_init ! heat content, salt content and volume budgets 348 350 CALL trd_mod_init ! Mixed-layer/Vorticity/Integral constraints trends … … 456 458 CALL iom_close ! close all input/output files managed by iom_* 457 459 ! 458 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 459 IF( numsol /= -1 ) CLOSE( numsol ) ! solver file 460 IF( numnam /= -1 ) CLOSE( numnam ) ! oce namelist 461 IF( numnam_ice /= -1 ) CLOSE( numnam_ice ) ! ice namelist 462 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 463 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 460 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 461 IF( numsol /= -1 ) CLOSE( numsol ) ! solver file 462 IF( numnam /= -1 ) CLOSE( numnam ) ! oce namelist 463 IF( numnam_ice /= -1 ) CLOSE( numnam_ice ) ! ice namelist 464 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 465 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 466 IF( numdct_vol /= -1 ) CLOSE( numdct_vol ) ! volume transports 467 IF( numdct_heat /= -1 ) CLOSE( numdct_heat ) ! heat transports 468 IF( numdct_salt /= -1 ) CLOSE( numdct_salt ) ! salt transports 469 464 470 ! 465 471 numout = 6 ! redefine numout in case it is used after this point... -
branches/2011/dev_MERCATOR_2011_MERGE/NEMOGCM/NEMO/OPA_SRC/step.F90
r3047 r3049 165 165 IF( lk_diafwb ) CALL dia_fwb( kstp ) ! Fresh water budget diagnostics 166 166 IF( ln_diaptr ) CALL dia_ptr( kstp ) ! Poleward TRansports diagnostics 167 IF( lk_diadct ) CALL dia_dct( kstp ) ! Transports 167 168 IF( lk_diaar5 ) CALL dia_ar5( kstp ) ! ar5 diag 168 169 IF( lk_diaharm ) CALL dia_harm( kstp ) ! Tidal harmonic analysis -
branches/2011/dev_MERCATOR_2011_MERGE/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r3047 r3049 82 82 USE trdvor ! vorticity budget (trd_vor routine) 83 83 USE diaptr ! poleward transports (dia_ptr routine) 84 USE diadct ! sections transports (dia_dct routine) 84 85 USE diaar5 ! AR5 diagnosics (dia_ar5 routine) 85 86 USE diahth ! thermocline depth (dia_hth routine)
Note: See TracChangeset
for help on using the changeset viewer.