/[MITgcm]/MITgcm/model/src/ini_forcing.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_forcing.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.18 by heimbach, Mon Sep 11 23:02:31 2000 UTC revision 1.19 by heimbach, Mon Nov 13 16:32:58 2000 UTC
# Line 63  C Line 63  C
63        IF ( EmPmRfile .NE. ' '  ) THEN        IF ( EmPmRfile .NE. ' '  ) THEN
64         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )         CALL READ_FLD_XY_RS( EmPmRfile, ' ', EmPmR, 0, myThid )
65        ENDIF        ENDIF
 #ifdef SHORTWAVE_HEATING  
       IF ( surfQswFile .NE. ' '  ) THEN  
        CALL READ_FLD_XY_RS( surfQswFile, ' ', Qsw, 0, myThid )  
       ENDIF  
 #endif  
66        IF ( thetaClimFile .NE. ' '  ) THEN        IF ( thetaClimFile .NE. ' '  ) THEN
67         CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid )         CALL READ_FLD_XY_RS( thetaClimFile, ' ', SST, 0, myThid )
68        ENDIF        ENDIF
# Line 92  C Line 87  C
87  C     CALL PLOT_FIELD_XYRS( fu, 'S/R INI_FORCING FU',1,myThid)  C     CALL PLOT_FIELD_XYRS( fu, 'S/R INI_FORCING FU',1,myThid)
88  C     CALL PLOT_FIELD_XYRS( fv, 'S/R INI_FORCING FV',1,myThid)  C     CALL PLOT_FIELD_XYRS( fv, 'S/R INI_FORCING FV',1,myThid)
89    
90  C     Convert units and signs (!)  C     Convert units and signs
91        CALL EXTERNAL_FIELDS_SCALE( myThid )        CALL EXTERNAL_FIELDS_SCALE( myThid )
92    
93        RETURN        RETURN
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22