Changeset 1017
- Timestamp:
- Oct 20, 2008, 5:57:12 PM (16 years ago)
- Location:
- LMDZ4/trunk/libf/dyn3dpar
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/create_etat0_limit.F
r1000 r1017 49 49 IF (config_inca /= 'none') THEN 50 50 #ifdef INCA 51 call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday) 51 call init_const_lmdz( 52 $ nbtrac,anneeref,dayref, 53 $ iphysiq,day_step,nday) 52 54 #endif 53 55 print *, 'nbtrac =' , nbtrac -
LMDZ4/trunk/libf/dyn3dpar/gcm.F
r1000 r1017 234 234 IF (config_inca /= 'none') THEN 235 235 #ifdef INCA 236 call init_const_lmdz(nbtrac,anneeref,dayref,iphysiq,day_step,nday) 237 call init_inca_para(iim,jjm+1,klon_glo,mpi_size,klon_mpi_para_nb, 238 $ COMM_LMDZ) 236 call init_const_lmdz( 237 $ nbtrac,anneeref,dayref, 238 $ iphysiq,day_step,nday) 239 240 call init_inca_para( 241 $ iim,jjm+1,klon_glo,mpi_size, 242 $ klon_mpi_para_nb,COMM_LMDZ) 239 243 #endif 240 244 END IF
Note: See TracChangeset
for help on using the changeset viewer.