Changeset 3362 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM
- Timestamp:
- 2012-04-24T12:35:17+02:00 (12 years ago)
- Location:
- branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM
- Files:
-
- 1 added
- 2 deleted
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/namelist
r3350 r3362 152 152 ! ! file name ! frequency (hours) ! variable ! time interp. ! clim ! 'yearly'/ ! weights ! rotation ! 153 153 ! ! ! (if <0 months) ! name ! (logical) ! (T/F) ! 'monthly' ! filename ! pairing ! 154 sn_tem = 'sas_grid_T' , 120 , 'votemper' , .true. , .true. , 'yearly' , '' , '' 155 sn_sal = 'sas_grid_T' , 120 , 'vosaline' , .true. , .true. , 'yearly' , '' , '' 156 sn_uwd = 'sas_grid_U' , 120 , 'vozocrtx' , .true. , .true. , 'yearly' , '' , '' 157 sn_vwd = 'sas_grid_V' , 120 , 'vomecrty' , .true. , .true. , 'yearly' , '' , '' 158 154 sn_usp = 'sas_grid_U' , 120 , 'vozocrtx' , .true. , .true. , 'yearly' , '' , '' 155 sn_vsp = 'sas_grid_V' , 120 , 'vomecrty' , .true. , .true. , 'yearly' , '' , '' 156 sn_tem = 'sas_grid_T' , 120 , 'sosstsst' , .true. , .true. , 'yearly' , '' , '' 157 sn_sal = 'sas_grid_T' , 120 , 'sosaline' , .true. , .true. , 'yearly' , '' , '' 158 sn_ssh = 'sas_grid_T' , 120 , 'sossheig' , .true. , .true. , 'yearly' , '' , '' 159 160 ln_3d_uv = .true. ! specify whether we are supplying a 3D u,v field 159 161 cn_dir = './' ! root directory for the location of the bulk files are 160 162 / -
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r3335 r3362 53 53 USE mod_ioclient 54 54 #endif 55 USE sbcs as55 USE sbcssm 56 56 57 57 IMPLICIT NONE … … 256 256 CALL day_init ! model calendar (using both namelist and restart infos) 257 257 258 CALL sbc_s as_init ! initialise standalone scheme258 CALL sbc_ssm_sas_init ! initialise standalone scheme 259 259 CALL sbc_init ! Forcings : surface module 260 260 -
branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/step.F90
r3358 r3362 6 6 !!====================================================================== 7 7 !! History : OPA ! 1991-03 (G. Madec) Original code 8 !! - ! 1991-11 (G. Madec) 9 !! - ! 1992-06 (M. Imbard) add a first output record 10 !! - ! 1996-04 (G. Madec) introduction of dynspg 11 !! - ! 1996-04 (M.A. Foujols) introduction of passive tracer 12 !! 8.0 ! 1997-06 (G. Madec) new architecture of call 13 !! 8.2 ! 1997-06 (G. Madec, M. Imbard, G. Roullet) free surface 14 !! - ! 1999-02 (G. Madec, N. Grima) hpg implicit 15 !! - ! 2000-07 (J-M Molines, M. Imbard) Open Bondary Conditions 16 !! NEMO 1.0 ! 2002-06 (G. Madec) free form, suppress macro-tasking 17 !! - ! 2004-08 (C. Talandier) New trends organization 18 !! - ! 2005-01 (C. Ethe) Add the KPP closure scheme 19 !! - ! 2005-11 (G. Madec) Reorganisation of tra and dyn calls 20 !! - ! 2006-01 (L. Debreu, C. Mazauric) Agrif implementation 21 !! - ! 2006-07 (S. Masson) restart using iom 22 !! 3.2 ! 2009-02 (G. Madec, R. Benshila) reintroduicing z*-coordinate 23 !! - ! 2009-06 (S. Masson, G. Madec) TKE restart compatible with key_cpl 24 !! 3.3 ! 2010-05 (K. Mogensen, A. Weaver, M. Martin, D. Lea) Assimilation interface 25 !! - ! 2010-10 (C. Ethe, G. Madec) reorganisation of initialisation phase + merge TRC-TRA 26 !! 3.4 ! 2011-04 (G. Madec, C. Ethe) Merge of dtatem and dtasal 27 !! 3.5 ! 2012-03 (S. Alderson) 8 !! . ! . 9 !! . ! . 10 !! NEMO 3.5 ! 2012-03 (S. Alderson) 28 11 !!---------------------------------------------------------------------- 29 12 … … 89 72 # endif 90 73 #endif 91 indic = 0 ! reset to no error condition92 74 IF( kstp /= nit000 ) CALL day( kstp ) ! Calendar (day was already called at nit000 in day_init) 93 75 CALL iom_setkt( kstp ) ! say to iom that we are at time step kstp … … 97 79 CALL dia_wri( kstp ) ! ocean model: outputs 98 80 99 indic = 0 81 indic = 0 ! although indic is not changed in stp_ctl 82 ! need to keep the same interface 100 83 CALL stp_ctl( kstp, indic ) 101 IF( indic < 0 ) THEN102 CALL ctl_stop( 'step: indic < 0' )103 CALL dia_wri_state( 'output.abort', kstp )104 ENDIF105 84 ! 106 85 IF( nn_timing == 1 .AND. kstp == nit000 ) CALL timing_reset
Note: See TracChangeset
for help on using the changeset viewer.