Changeset 5573
- Timestamp:
- 2015-07-09T12:38:34+02:00 (9 years ago)
- Location:
- trunk/NEMOGCM
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/UtilAgrif.c
r2715 r5573 413 413 parcours = parcours -> suiv; 414 414 if ( parcours && parcours->o_val != 0 ) 415 fprintf(fileout,"\n USE Agrif_Util \n"); 415 { 416 if( strcasecmp(subroutinename,"Agrif_InvLoc") ) 417 fprintf(fileout,"\n USE Agrif_Util \n"); 418 else fprintf(fileout,"\n USE Agrif_Types \n"); 419 420 } 416 421 } 417 422 } … … 437 442 if ( out == 0 ) 438 443 { 439 fprintf(fileout,"\n USE Agrif_Util \n"); 444 if( strcasecmp(subroutinename,"Agrif_InitWorkspace") ) 445 fprintf(fileout,"\n USE Agrif_Util \n"); 446 else fprintf(fileout,"\n USE Agrif_Types \n"); 440 447 } 441 448 } -
trunk/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r4624 r5573 17 17 USE par_oce 18 18 USE dom_oce 19 USE Agrif_Util20 19 USE nemogcm 21 20 !
Note: See TracChangeset
for help on using the changeset viewer.