Changeset 2007 for branches/DEV_r1879_FCM/NEMOGCM/NEMO/NST_SRC
- Timestamp:
- 2010-07-13T17:14:39+02:00 (14 years ago)
- Location:
- branches/DEV_r1879_FCM/NEMOGCM/NEMO/NST_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1879_FCM/NEMOGCM/NEMO/NST_SRC/agrif2model.F90
r1156 r2007 73 73 74 74 END SUBROUTINE Agrif_clustering_def 75 76 SUBROUTINE Agrif_comm_def(modelcomm) 77 78 !!--------------------------------------------- 79 !! *** ROUTINE Agrif_clustering_def *** 80 !!--------------------------------------------- 81 Use Agrif_Types 82 Use lib_mpp 83 84 IMPLICIT NONE 85 86 INTEGER :: modelcomm 87 88 #if defined key_mpp_mpi 89 modelcomm = mpi_comm_opa 90 #endif 91 Return 92 93 END SUBROUTINE Agrif_comm_def 75 94 #else 76 95 SUBROUTINE Agrif2Model -
branches/DEV_r1879_FCM/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r1605 r2007 73 73 USE tradmp 74 74 #endif 75 #if defined key_obc || defined key_esopa 76 USE obc_par 77 #endif 75 78 USE sol_oce 76 79 USE in_out_manager … … 105 108 ! no tracer damping on fine grids 106 109 lk_tradmp = .FALSE. 110 #endif 111 #if defined key_obc || defined key_esopa 112 ! no open boundary on fine grids 113 lk_obc = .FALSE. 107 114 #endif 108 115 ! 1. Declaration of the type of variable which have to be interpolated
Note: See TracChangeset
for help on using the changeset viewer.